Im Mittelpunkt dieses Beispiels steht die Gewinnverteilung einer Aktiengesellschaft (AG) nach Artikel 671 des schweizerischen Obligationenrechts (OR). Es soll nicht nur die Themen Objekte und Benutzerschnittstelle vertiefen, sondern auch die phasenweise Entwicklung eines komplexeren Programms veranschaulichen. Das Thema ist wie folgt gegliedert:

1. Buchhalterische Voraussetzungen

2. Spezifikation

3. Entwurf
4. Implementation

Erfolgsverteilung in der doppelten Buchhaltung

Der Ablauf einer doppelten Buchhaltung besteht aus drei Phasen:

1. Zu Beginn der Buchungsperiode wird die Bilanz (Vermögensrechnung) eröffnet.

2. Während der Buchungsperiode wird der Geschäftsverkehr doppelt verbucht. Jeder Geschäftsfall wir durch einen oder mehrere Buchungssätze festgehalten. Doppelt verbuchen heisst den Sollspalten eines Buchungssatzes gleich viel belasten wie seinen Habenspalten gutgeschrieben wird.

3. Am Ende der Buchungsperiode werden die Vermögens- und Schuldkonten in der Bilanz zusammengefasst. Die Aufwand- und Erfolgskonten werden in der Erfolgsrechnung (Gewinn- und Verlustrechnung) abgeschlossen.

Zu den Abschlussarbeiten der Erfolgsrechnung gehört auch die Verbuchung der Gewinnverteilung. Wir veranschaulichen an ihrer Implementation ausgewählte Begriffe der Programmentwicklung unter VBA und Excel. Die Buchhaltung einer Aktiengesellschaft (AG) enthält die folgenden Erfolgsverteilungskonten:

• Das Konto Aktienkapital (AK) enthält die Eigentümeranteile

• Die Erfolgsrechnung (ER) ermittelt den Gewinn oder Verlust. Dieser wird am Ende der Buchhaltungsperiode auf das Konto ”Gewinn“verteilung übertragen

• Der Reservefonds (Res) bewahrt den nicht ausgeschütteten Gewinn auf

• Dividende (Div) enthält den Gewinnanteil der Aktionäre

• Tantième (Tant) enthält den Gewinnanteil der Verwaltungsräte

• Das Konto ”Gewinn“verteilung (GV) verteilt den Erfolg (Gewinn oder Verlust). Der Buchungssatz für die Verteilung der Dividende heisst zum Beispiel “Gewinnverteilung an Dividende”: Das heisst, die Dividende wird von der Sollspalte des Kontos Gewinnverteilung abgezogen und in der Habenspalte des Passivkontos Dividende als Schuld verbucht. Jede Erfolgsverbuchung ändert so den Saldo des Kontos Gewinnverteilung.

Bei der Präsentation des Beispiels folgen wir den Entwicklungsphasen Spezifikation, Entwurf und Implementation.

Spezifikation

a) Grobspezifikation

Der folgende Bildschirmausschnitt beschreibt den Zweck der Arbeitsmappe Gewinnverteilung.xls. Der Entwickler trägt sie zu Beginn des Projekts unter dem Excel-Menüpunkt »Datei/Eigenschaften ein:

Der genaue Zusatzdividendensatz ZusatzdivSatz ergibt sich aus den Gleichungen (1) bis (3) und den algebraischen Vereinfachungen (4) bis (7): 

Zusatzdividende = ZusatzdivSatz * 0.01AK 					(1)
ZusatzdivSatz = (GV - ResAufZusatzdiv) / 0.01AK 				(2)
ResAufZusatzdiv = 0.1 * ZusatzdivSatz * 0.01AK 				(3)

(3) ist die Reservevorschrift von OR 671. (2) berechnet den ZusatzdivSatz, der sich nach Abzug der Reservezuweisung ResAufZusatzdiv noch aus dem Gewinnrest ausschütten lässt. Gleichung (4) vereinfacht (2), indem sie ResAufZusatzdiv durch (3) ersetzt. Nach den Schritten (5) und (6) ergibt (7) schliesslich den ZusatzdivSatz als Quotienten zwischen dem Gewinnrest GV und dem Produkts 0.011AK:

ZusatzdivSatz = (GV - 0.1 * ZusatzdivSatz * 0.01AK) / 0.01 AK		(4)
ZusatzdivSatz = GV / 0.01 AK - 0.1 * ZusatzdivSatz			(5)
1.1 ZusatzdivSatz = GV / 0.01AK						(6)
ZusatzdivSatz = GV / 0.01AK / 1.1 = GV / 0.011AK				(7)

Die VBA-Funktion Int ergibt den ganzzahligen Anteil ihres Arguments. Int(99.8) ergibt zum Beispiel die Integer-Zahl 99. Den ganzzahligen Zusatzdividendensatz berechnen wir deshalb als Int(GV / 0.011AK). Nach (1) lautet die VBA-Formel für die Zusatzdividende deshalb:

Zusatzdividende = Int(GV / 0.011AK) * 0.01AK

Entwurf

Die Arbeitsmappe Gewinnverteilung.xls setzt sich aus den folgenden Objekten zusammen:

Tabellenblatt Dialogblatt

• Ausgabebereich für die Ergebnisse der Gewinnverteilung
• Schaltfläche ‘Start’

Formular Eingabeformular

• Bezeichnungs- und Textfelder für die Eingabedaten
• Schaltflächen ‘Verbuchen’ und ‘Abbrechen’

Modul Verarbeitung.

a) Kernalgorithmus

Bevor wir die Gewinnverteilung in VBA implementieren, formulieren wir eine erste entwurfssprachliche Annäherung an den Kernalgorithmus. Dabei verwenden wir die folgenden Abkürzungen:

ER     Erfolgsrechnung
GV     Gewinnverteilung
AK     Aktienkapital
T%     Tantième in %
kursiv Buchungssätze

Falls Aufwand < Ertrag dann                          '---- Gewinn
  Gewinn = Ertrag - Aufwand
  ER an GV, Gewinn
  Falls Reserve < AK / 5 dann                             '(2)
    GV an Reserve, Gewinn / 20                            '(1)
    GV an Dividende, Aktienkapital / 20                   '(4)
    GV an Tantième, Gewinn * T% / 100                     '(5)
    GV an Reserve, Gewinn * T% / 100 / 10                 '(3)
    ZusatzDivSatz =  GV / 0.011AK                         'siehe oben (3 c)
    Zusatzdividende = AK * Int (ZusatzDivSatz) / 100
    GV an Dividende,  Zusatzdividende                     '(5,6)
    GV an Reserve, Zusatzdividende / 10                   '(3)
  Falls GV > 0 dann
    GV an Reserve, GV
sonst                                                '---- Verlust
  Verlust = Aufwand - Ertrag
  Falls Verlust < Reserve dann
    Reserve an ER, Verlust
  sonst
    Reserve an ER, Reserve
    GV an ER, Verlust - Reserve

Gewinnverteilung gemäss OR 671 und Praxis

Wer diesen Algorithmus mit der Subroutine Buchungssätze()der Arbeitsmappe Gewinnverteilung.xls vergleicht, stösst auf den folgenden Unterschied: Die programmiersprachliche Version prüft für jeden Buchungssatz, ob der laufende Saldo des Gewinnverteilungskontos für die Buchung ausreicht. Um das Verständnis zu erleichtern haben wir diese Prüfung weggelassen und nur nur den algorithmischen Kern skizziert.

b) Dialogblatt

Der grösste Teil von Gewinnverteilung.xls widmet sich der Benutzeroberfläche. Das folgende Bild zeigt im Hintergrund die vier Spalten des Tabellenblatts Dialogblatt. Die Ausgabeanweisung Range(Zelle).Value = Wert schreibt jeden vom Programm ermittelten Wert in die passende Zelle von Dialogblatt. Ein Klick auf die Schaltflläche ‘Start’ ruft die Ereignisprozedur Start_Click() auf, die ihrerseits das Eingabeformular 'Falldaten eingeben' anzeigt.

Auf dem farbigen Hintergrund des Tabellenblatts sehen Sie ...

• ein Eingabeformular mit fünf weissen Textfeldern und Defaultwerten

• ein Meldungsfeld mit der Reaktion auf den Eingabefehler "zehn" des letzten Textfelds.

Wie ein Tabellenblatt stellt auch ein benutzerdefiniertes Formular Objekte, Eigenschaften und Methoden bereit. Das obige Eingabeformular 'Falldaten eingeben' enthält für jede Eingabe ein Bezeichnungsfeld und ein Textfeld (weisses Feld rechts vom Bezeichnungsfeld).

' --- Public für alle Module sichtbar
Public abgebrochen As Boolean   ' True, falls “Abbrechen”

' --- Private nur für das Verarbeitungsmodul sichtbar
Private Ausgabezeile As Integer
Private GV As Currency          ' Konto Gewinnverteilung

Eine Variable, die nur in jenem Modul oder in jener Prozedur sichtbar ist, in der sie vereinbart worden ist, heisst lokal. Der Programmierer darf zum Beispiel eine private Variable nur in jenem Modul verwenden, in dem er sie eingeführt hat. Wenn er hingegen eine Variable als Public vereinbart, dann darf er sie auch ausserhalb des deklarierenden Moduls, das heisst im ganzen Projekt, ansprechen. Variablen, die auch ausserhalb des deklarierenden Unterprogramms oder Moduls gelten, heissen global.

Einfachprogramme enthalten allerdings die Schlüsselwörter Public und Private nur selten. Am häufigsten ist das Schlüsselwort Dim. Es dient der Vereinbarung einer Variablen innerhalb einer einzigen Prozedur. Man sagt auch, der Gültigkeitsbereich einer Dim-Variablen beschränke sich auf die Prozedur. Private deklariert hingegen Variablen, die für alle Prozeduren eines Moduls gelten; solche Variablen sind also global innerhalb eines Moduls. Public macht sogar eine Vereinbarung für alle Module eines Projekts - zum Beispiel aller Module des Projekts “Gewinnverteilung” - sichtbar. Solche Variablen sind innerhalb eines Projekts global.

b. Ereignisprozeduren

Sub Start_Click()
  ' --- Dialogblatt und Eingabeformular initialisieren
  GV = 0
  abgebrochen = False
  ' Ausgabebereich des Dialogblatts löschen
  Dialogblatt.Range("A4:F11").ClearContents
  ' Eingabeformular die Kontrolle übergeben
  Eingabeformular.Show          ' laden und anzeigen
  ' --- Gefülltes Eingabeformular verarbeiten
  If abgebrochen = False Then
    Buchungssätze
    Unload Eingabeformular      ' aus Speicher entfernen
  End If
End Sub

Die Ereignisprozedur Start_Click() lädt mit dem Befehl Eingabeformular.Show das Eingabeformular in den Internspeicher und zeigt es auf dem Bildschirm. Die Zeile Unload Eingabeformular entfernt das Formular erst, nachdem der Benutzer die Dateneingabe regulär abgeschlossen hat oder die Schaltfläche ‘Abbrechen’ geklickt hat. Das Programm erkennt am Wert True der Public-Variable abgebrochen, dass der Benutzer die Eingabe abgebrochen hat. Anders als Unload Eingabeformular löscht Eingabeformular.Hide das Eingabeformular nicht aus dem Internspeicher, sondern zeigt es nur bis zum Befehl Eingabeformular.Show nicht mehr an.

'Modul Eingabeformular
'---------------------
Private Sub Abbrechen_Click()
  abgebrochen = True
  Unload Eingabeformular
End Sub

Private Sub Verbuchen_Click()
  'Eingabeformular nach Klick auf "Verbuchen" prüfen
  'Aufwand, etc. sind Textfelder des Eingabeformulars
  'Aufwand="" bedeutet dasselbe wie Aufwand.Value=""
  If Aufwand = "" Or _
    Ertrag = "" Or _
    Aktienkapital = "" Or _
    Reserve = "" Or _
    TantièmeInProzent = ""
  Then
    MsgBox "Keine Leereingaben möglich"
  ElseIf Not (IsNumeric(Aufwand) And _
    IsNumeric(Ertrag) And _
    IsNumeric(Aktienkapital) And _
    IsNumeric(Reserve) And _
    IsNumeric(TantièmeInProzent))
  Then
    MsgBox "Nur nummerische Eingaben möglich"
  Else
    Eingabeformular.Hide     'vorübergehend ausblenden
  End If
End Sub

In einem grösseren Projekt wie Gewinnverteilung helfen der Projektexplorer und der Objektkatalog, die Übersicht zu bewahren.

Übung Gewinnverteilung